1 Public Class FrmORDER_FORM
2
3 Private Sub FrmORDER_FORM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4 sqlSTR = "SELECT Order_No AS 'Order No', Order_Date AS 'Order Date', Product_Total AS 'TOTAL COST' FROM TBL_Orders WHERE Order_Date ='" & Format(dtOrder.Value, "MM/dd/yyyy") & "'"
5 FillListView(ExecuteSQLQuery(sqlSTR), lstOrder, 0)
6 End Sub
7
8 Private Sub dtOrder_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtOrder.ValueChanged
9 sqlSTR = "SELECT Order_No AS 'Order No', Order_Date AS 'Order Date', Product_Total AS 'TOTAL COST' FROM TBL_Orders WHERE Order_Date ='" & Format(dtOrder.Value, "MM/dd/yyyy") & "'"
10 FillListView(ExecuteSQLQuery(sqlSTR), lstOrder, 0)
11 End Sub
12
13 Private Sub FrmORDER_FORM_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
14 With Me
15 GroupBox1.Width = (.Width - (MDIMain.TSHoldRight.Width / 2)) + 60
16 GroupBox1.Height = .Height - (MDIMain.TSHoldAdvisory.Height + 45)
17 .lstOrder.Width = GroupBox1.Width - 10
18 .lstOrder.Height = GroupBox1.Height - 18
19
20 .dtOrder.Left = GroupBox1.Width - .dtOrder.Width
21 .Label3.Left = (.dtOrder.Left - .Label3.Width) - 4
22 End With
23 End Sub
24
25 Private Sub txtorder_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtorder.TextChanged
26 txtorder.Text = str_Filter(txtorder, 48, 57, 0, 0)
27 End Sub
28
29 Private Sub CmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSearch.Click
30 sqlSTR = "SELECT Order_No AS 'Order No', Order_Date AS 'Order Date', Product_Total AS 'TOTAL COST' FROM TBL_Orders WHERE Order_No =" & txtorder.Text
31 FillListView(ExecuteSQLQuery(sqlSTR), lstOrder, 0)
32 grpCat.Visible = False
33 End Sub
34
35 Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
36 grpCat.Visible = False
37 End Sub
38 End Class